library(ggplot2) 
library(plotly)

p <- ggplot(mtcars, aes(x = hp, y = mpg)) + geom_point()

ggplotly(p)

library(ggplot2)
library(plotly)

p <- ggplot(mtcars, aes(x = hp, y = mpg)) + 
  geom_point()

ggplotly(p)